Collection of Tools & Utilities

home *** CD-ROM | disk | FTP | other *** search

/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / graphic / chgle10.zip / SAMPLE1.PSC < prev next >

Wrap

Text File | 1992-05-28 | 51KB | 4,479 lines

%!PS-Adobe-1.0 %%BoundingBox: -1 -1 511.236 681.315 %%EndComments %%EndProlog gsave /CfontMatrix [10 0 0 10 0 0] def /f {findfont exch scalefont setfont} bind def /s {show} bind def /ps {true charpath} bind def /l {lineto} bind def /m {newpath moveto} bind def matrix currentmatrix /originmat exch def /umatrix {originmat matrix concatmatrix setmatrix} def [72 0 0 72 0 0] umatrix [28.3465 0 0 28.3465 0 0] umatrix [28.3465 0 0 28.3465 42.5197 28.6299] umatrix [] 0 setdash 0.02 setlinewidth 0 setgray 0 0 m 9 21 m 5.437 21 m 5.437 21 m 2.000000 /Courier f gsave currentpoint translate CfontMatrix concat currentfont /FontMatrix get dup 0 get exch 3 get scale 0.01 setlinewidth 10 55 moveto 20 48 l 20 46 l 17 44 l 11 50 l 7 51 l 10 55 l 24 51 moveto 54 51 l 49 32 l 42 15 l 57 6 l 61 5 l 57 0 l 47 6 l 38 12 l 31 5 l 20 -1 l 19 2 l 17 3 l 33 12 l 36 17 l 27 36 l 26 39 l 31 40 l 31 35 l 37 22 l 39 20 l 46 37 l 48 47 l 23 46 l 24 51 l 5 40 moveto 10 39 l 17 34 l 13 30 l 11 33 l 3 37 l 5 40 l 14 23 moveto 17 21 l 10 -1 l 5 2 l 12 23 l 14 23 l fill grestore 6.637 21 m gsave currentpoint translate CfontMatrix concat currentfont /FontMatrix get dup 0 get exch 3 get scale 0.01 setlinewidth 29 56 moveto 33 56 l 37 48 l 57 49 l 57 36 l 52 36 l 52 45 l 10 45 l 10 36 l 6 36 l 6 48 l 30 48 l 30 52 l 28 55 l 29 56 l 14 37 moveto 48 37 l 48 33 l 38 28 l 35 25 l 34 21 l 59 22 l 59 18 l 34 18 l 35 4 l 33 1 l 24 -1 l 23 4 l 29 4 l 30 18 l 3 18 l 3 22 l 30 22 l 30 27 l 41 32 l 40 34 l 14 33 l 14 37 l fill grestore 9.037 21 m (G) s 10.237 21 m (L) s 11.437 21 m (E) s 9 21 m newpath 5.183 20.63 moveto 12.817 20.63 l 12.817 22.496 l 5.183 22.496 l closepath 0.686275 setgray fill 0 setgray newpath 9 21 m newpath 5.183 20.63 moveto 12.817 20.63 l 12.817 22.496 l 5.183 22.496 l closepath stroke 9 21 m 9 21 m 5.437 21 m 5.437 21 m gsave currentpoint translate CfontMatrix concat currentfont /FontMatrix get dup 0 get exch 3 get scale 0.01 setlinewidth 10 55 moveto 20 48 l 20 46 l 17 44 l 11 50 l 7 51 l 10 55 l 24 51 moveto 54 51 l 49 32 l 42 15 l 57 6 l 61 5 l 57 0 l 47 6 l 38 12 l 31 5 l 20 -1 l 19 2 l 17 3 l 33 12 l 36 17 l 27 36 l 26 39 l 31 40 l 31 35 l 37 22 l 39 20 l 46 37 l 48 47 l 23 46 l 24 51 l 5 40 moveto 10 39 l 17 34 l 13 30 l 11 33 l 3 37 l 5 40 l 14 23 moveto 17 21 l 10 -1 l 5 2 l 12 23 l 14 23 l fill grestore 6.637 21 m gsave currentpoint translate CfontMatrix concat currentfont /FontMatrix get dup 0 get exch 3 get scale 0.01 setlinewidth 29 56 moveto 33 56 l 37 48 l 57 49 l 57 36 l 52 36 l 52 45 l 10 45 l 10 36 l 6 36 l 6 48 l 30 48 l 30 52 l 28 55 l 29 56 l 14 37 moveto 48 37 l 48 33 l 38 28 l 35 25 l 34 21 l 59 22 l 59 18 l 34 18 l 35 4 l 33 1 l 24 -1 l 23 4 l 29 4 l 30 18 l 3 18 l 3 22 l 30 22 l 30 27 l 41 32 l 40 34 l 14 33 l 14 37 l fill grestore 9.037 21 m (G) s 10.237 21 m (L) s 11.437 21 m (E) s 9 21 m newpath 4.983 20.43 moveto 13.017 20.43 l 13.017 22.696 l 4.983 22.696 l closepath stroke 9 21 m 9 21 m 8 19 m 8 19 m 12 19 l stroke 11.9885 19 m 11.9885 19 m 0.500000 /Courier f gsave currentpoint translate CfontMatrix concat currentfont /FontMatrix get dup 0 get exch 3 get scale 0.01 setlinewidth 48 56 moveto 53 55 l 53 21 l 60 22 l 61 18 l 53 18 l 53 -2 l 47 -2 l 49 18 l 29 15 l 29 19 l 49 21 l 48 56 l 27 55 moveto 31 50 l 28 51 l 20 50 l 20 38 l 29 38 l 29 34 l 20 35 l 20 30 l 21 28 l 23 29 l 28 23 l 24 20 l 23 25 l 19 27 l 19 -1 l 14 -1 l 16 27 l 14 26 l 10 18 l 5 12 l 3 16 l 10 24 l 15 35 l 4 34 l 4 38 l 16 37 l 16 48 l 7 48 l 6 51 l 23 53 l 27 55 l 37 49 moveto 43 41 l 39 38 l 35 46 l 34 47 l 37 49 l 35 34 moveto 38 33 l 42 27 l 38 24 l 35 30 l 33 32 l 35 34 l fill grestore 12.2885 19 m gsave currentpoint translate CfontMatrix concat currentfont /FontMatrix get dup 0 get exch 3 get scale 0.01 setlinewidth 47 57 moveto 52 54 l 44 42 l 59 42 l 59 31 l 54 31 l 55 39 l 9 39 l 9 31 l 4 31 l 5 43 l 40 42 l 47 57 l 28 56 moveto 32 56 l 35 48 l 30 47 l 30 51 l 28 56 l 14 54 moveto 17 53 l 21 47 l 17 45 l 12 52 l 14 54 l 14 32 moveto 50 31 l 49 26 l 45 26 l 38 23 l 35 20 l 36 18 l 60 18 l 60 14 l 35 14 l 35 1 l 27 -2 l 25 -1 l 24 3 l 30 3 l 31 15 l 4 14 l 4 19 l 31 18 l 30 23 l 38 26 l 39 28 l 14 28 l 14 32 l fill grestore 12.5885 19 m gsave currentpoint translate CfontMatrix concat currentfont /FontMatrix get dup 0 get exch 3 get scale 0.01 setlinewidth 39 56 moveto 44 55 l 44 51 l 49 43 l 60 35 l 56 31 l 54 34 l 50 35 l 50 31 l 33 31 l 32 34 l 27 29 l 24 32 l 35 45 l 39 56 l 13 55 moveto 18 54 l 9 35 l 17 35 l 21 44 l 25 41 l 12 20 l 22 20 l 21 17 l 7 16 l 5 20 l 9 22 l 15 33 l 4 31 l 4 35 l 11 47 l 13 55 l 39 46 moveto 34 35 l 48 35 l 50 36 l 48 40 l 45 42 l 44 47 l 42 49 l 39 46 l 26 24 moveto 56 24 l 56 20 l 42 20 l 34 8 l 31 6 l 32 4 l 48 6 l 45 14 l 48 15 l 56 1 l 51 -1 l 50 3 l 31 1 l 28 0 l 27 6 l 34 14 l 37 21 l 26 20 l 26 24 l 21 11 moveto 23 11 l 23 7 l 5 4 l 4 9 l 20 10 l 21 11 l fill grestore 12.8885 19 m gsave currentpoint translate CfontMatrix concat currentfont /FontMatrix get dup 0 get exch 3 get scale 0.01 setlinewidth 7 54 moveto 57 53 l 57 -1 l 52 -1 l 51 2 l 11 3 l 12 -1 l 7 -1 l 7 54 l 12 48 moveto 12 6 l 38 6 l 37 9 l 23 13 l 23 16 l 28 16 l 41 10 l 38 8 l 39 6 l 52 6 l 52 49 l 11 50 l 12 48 l 27 47 moveto 31 46 l 29 42 l 46 43 l 37 31 l 38 29 l 50 26 l 48 21 l 32 28 l 17 21 l 15 25 l 27 28 l 29 30 l 28 33 l 24 37 l 20 32 l 16 34 l 20 36 l 27 47 l 39 39 moveto 26 40 l 27 36 l 32 33 l 36 34 l 39 39 l 28 23 moveto 32 23 l 40 20 l 38 17 l 28 21 l 28 23 l fill grestore 13.1885 19 m gsave currentpoint translate CfontMatrix concat currentfont /FontMatrix get dup 0 get exch 3 get scale 0.01 setlinewidth 13 56 moveto 19 55 l 16 47 l 29 47 l 29 43 l 14 43 l 8 27 l 16 28 l 16 39 l 21 38 l 20 28 l 29 28 l 29 24 l 20 24 l 20 16 l 30 18 l 30 14 l 22 13 l 20 11 l 20 -2 l 15 -2 l 16 11 l 4 9 l 3 14 l 14 15 l 16 17 l 16 24 l 4 24 l 2 28 l 7 34 l 9 41 l 8 43 l 2 43 l 2 47 l 11 47 l 13 56 l 37 56 moveto 43 55 l 38 44 l 59 45 l 55 32 l 50 33 l 53 41 l 36 41 l 33 33 l 28 33 l 33 41 l 37 56 l 40 37 moveto 45 36 l 45 24 l 50 12 l 52 9 l 61 4 l 56 0 l 49 7 l 44 17 l 44 22 l 42 21 l 39 9 l 29 -1 l 27 -1 l 24 2 l 32 7 l 37 14 l 40 31 l 40 37 l fill grestore 13.4885 19 m gsave currentpoint translate CfontMatrix concat currentfont /FontMatrix get dup 0 get exch 3 get scale 0.01 setlinewidth 17 56 moveto 22 53 l 17 43 l 17 -1 l 12 -1 l 13 35 l 10 34 l 6 27 l 3 30 l 12 43 l 17 56 l 40 56 moveto 45 55 l 44 40 l 59 40 l 59 36 l 44 36 l 44 22 l 61 22 l 61 17 l 44 18 l 44 -2 l 39 -2 l 40 18 l 22 18 l 22 22 l 40 22 l 40 37 l 29 37 l 25 29 l 21 30 l 27 42 l 30 49 l 34 48 l 31 40 l 40 40 l 40 56 l 12 36 moveto 14 35 l 13 37 l 12 36 l fill grestore 12 19 m 2 15 m [28.3465 0 0 28.3465 -56.6929 -425.197] umatrix [8.35928e-09 28.3465 -28.3465 8.35928e-09 425.197 -56.6929] umatrix [8.35928e-09 28.3465 -28.3465 8.35928e-09 524.41 397.134] umatrix -0.542 15 m -0.542 15 m 1.000000 /Courier f gsave currentpoint translate CfontMatrix concat currentfont /FontMatrix get dup 0 get exch 3 get scale 0.01 setlinewidth 10 55 moveto 20 48 l 20 46 l 17 44 l 11 50 l 7 51 l 10 55 l 24 51 moveto 54 51 l 49 32 l 42 15 l 57 6 l 61 5 l 57 0 l 47 6 l 38 12 l 31 5 l 20 -1 l 19 2 l 17 3 l 33 12 l 36 17 l 27 36 l 26 39 l 31 40 l 31 35 l 37 22 l 39 20 l 46 37 l 48 47 l 23 46 l 24 51 l 5 40 moveto 10 39 l 17 34 l 13 30 l 11 33 l 3 37 l 5 40 l 14 23 moveto 17 21 l 10 -1 l 5 2 l 12 23